home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / EXPLOSION DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  526b  |  11 lines
  1. 10  TEXT : HOME 
  2. 20  HOME : INPUT "HOW MANY PIECES OF PARTICLES DO YOU WISHTO FLY AWAY FROM THE EXPLOSION:";A
  3. 30  DIM X(A),Y(A),XX(A),YY(A),U(A),LR(A)
  4. 40  ONERR  GOTO 110
  5. 50  FOR I = 1 TO A:X(I) = 140:Y(I) = 190:U(I) =  RND(1) *5 +10:LR(I) =  RND(1) *11 -6:XX(I) = X(I):YY(I) = Y(I)
  6. 60  NEXT I
  7. 70  HGR2 : HCOLOR= 7
  8. 80  FOR II = 1 TO 30
  9. 90  FOR I = 1 TO A: HPLOT XX(I),YY(I) TO X(I),Y(I):XX(I) = X(I):YY(I) = Y(I):X(I) = X(I) +LR(I):Y(I) = Y(I) -U(I):U(I) = U(I) -1: IF Y(I) >190  THEN Y(I) = 190
  10. 100  NEXT I: NEXT II
  11. 110  RUN